home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / set (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  63 lines
  1. 1 REM  SET C3.0  (LEXIKOS REBOOT SETUP)  R. CROSWELL    06/01/86
  2. 2 :
  3. 3 :POKE808,234:DIMCN(11):E1$="  SORRY: INVALID ENTRY![145]":B$=CHR$(34):EX$="                                   [145][145][145][145][145]":F$="LEXIKOS":SYS58692:PRINTCHR$(142):POKE53280,0:POKE53281,0:POKE646,15:OPEN15,8,15:GOSUB41:IFT$="X"THENF$="MENU":GOTO34
  4. 4 SYS58692:PRINT:PRINTTAB(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINTTAB(13)"LEXIKOS SETUP":PRINTTAB(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINTTAB(5)"(_) TO BACKSPACE  (Q) TO QUIT":T$="":PRINT"  TYPE FILE NAME --> ";:GOSUB49:ID$=T$:T$="":IFID$="Q"THENF$="MENU":GOTO34
  5. 5 OPEN9,8,9,"0:+"+ID$+",S,R":GOSUB36:CLOSE9:PRINT"";EX$;"
  6. 6 [153]"   POKE ALL WAIT FOR COMPLETE FILE LISTONON":[133]"  HOW MANY CHAPTERS (10 MAX) ";NC$:NC[178][197](NC$):[139]NC$[178]"ALL"[167]9
  7. 7 [139]NC[177]10[176]NC[179]1[167][153]E1$:[141]38:[153]EX$:[137]6
  8. 8 [153]:[153]:[129]I[178]1[164][197](NC$):[153]"      <"I">   ENTER CHAPTER # ";:[133]CN$:CN(I)[178][197](CN$):CN$[178]"":[130]
  9. 9 [158]58692:[153]:[153][163]10)"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153][163]13)"LEXIKOS SETUP":[153][163]10)"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153]:[153]:[153]:[153]:[153]:[153]"  LIMIT NUMBER OF PLAYS    Y CMDCMDCMDCMD";:[133]NP$:[153]"  VERIFY PLAYER NAMES      N CMDCMDCMDCMD";:[133]VP$:[153]"  CLEAR PLAY  RECORDS      N CMDCMDCMDCMD";:[133]PX$
  10. 10 [153]"  CLEAR CHAMP'S NAME       N CMDCMDCMDCMD";:[133]CC$:[129]I[178]1[164]NC:[129]J[178]I[170]1[164]NC:[139]CN(I)[178]CN(J)[167]CN(I)[178][171]0
  11. 11 [130]:[130]:[153]"LOAD     FILE NAME ...... ";ID$:[153]"           CHAPTERS TO READ":[139]NC$[178]"ALL"[167][153][163]18)"ALL":[137]13
  12. 12 [129]I[178]1[164][197](NC$):[153][163]18)CN(I):[130]:[153]"
  13. 13 IFNP$="Y"THENPRINT"     PLAY LIMITER.........   ON  "
  14. 14 IFNP$<>"Y"THENPRINT"     PLAY LIMITER.........   OFF "
  15. 15 IFVP$="Y"THENPRINT"     PLAYER NAME CHECK....   ON  "
  16. 16 IFVP$<>"Y"THENPRINT"     PLAYER NAME CHECK....   OFF "
  17. 17 IFPX$="Y"THENPRINT"     CLEAR PLAY RECORDS...   ON  "
  18. 18 IFPX$<>"Y"THENPRINT"     CLEAR PLAY RECORD....   OFF "
  19. 19 IFCC$="Y"THENPRINT"     CLEAR CHAMP'S NAME...   ON  "
  20. 20 IFCC$<>"Y"THENPRINT"     CLEAR CHAMP'S NAME...   OFF "
  21. 21 PRINT"        IS THIS CORRECT (Y/N)?
  22. 22 [161]Z$:[139]Z$[178]""[167]22
  23. 23 [139]Z$[178]"Y"[167]26
  24. 24 [139]Z$[178]"N"[167]4
  25. 25 [137]22
  26. 26 [153]"LOADWORKING...":[152]15,"I0":[139]NP$[178]"Y"[167]NP$[178]"1
  27. 27 IFNP$="N"THENNP$="0
  28. 28 [139]VP$[178]"Y"[167]VP$[178]"1
  29. 29 IFVP$="N"THENVP$="0
  30. 30 [152]15,"S0:DEF":[159]9,8,9,"0:DEF,S,W":[152]9,ID$:[152]9,NC$:[129]I[178]1[164]10:[152]9,[196](CN(I)):[130]:[152]9,NP$:[152]9,VP$:[152]9:[160]9:[139]PX$[179][177]"Y"[167]32
  31. 31 [152]15,"I0":[152]15,"S0:PLX":[159]9,8,9,"0:PLX,S,W":[129]I[178]1[164]20:[152]9,"*":[130]:[152]9:[160]9:
  32. 32 [139]CC$[179][177]"Y"[167]34
  33. 33 [152]15,"I0":[152]15,"S0:#"[170]ID$:[159]9,8,9,"0:#"[170]ID$[170]",S,W":[152]9,"0000":[152]9,"NEW PLAYER":[152]9:[160]9:
  34. 34 [151]646,0
  35. 35 [153]"LOAD":[153]"LOAD"B$[170]F$[170]B$",8ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
  36. 36 [132]15,E,E$,J,J:[139]E[179][178]1[167][142]
  37. 37 [160]9:[152]15,"I0":E[178]0:[153]"LOAD  ";E$:[141]38:[137]4
  38. 38 TX[178]TI
  39. 39 [139]TI[179]TX[170]180[167]39
  40. 40 [142]
  41. 41 [153]"LOAD"[163]18)"WAIT":[159]9,8,9,"0:PWLEX,S,R":[132]9,PW$:[160]9:
  42. 42 [153]"LOAD"[163]10)"TYPE CURRENT PASSWORD":[153]""[163]12)"TO EXIT TYPE MENULIST":[153]""[163]14)" ";
  43. 43 [161]A$:[139]A$[178]""[167]43
  44. 44 T$[178]T$[170]A$:[153]"*";:[139]T$[178]PW$[167][142]
  45. 45 [139][198](A$)[179]43[176][198](A$)[177]90[167]T$[178]"":A$[178]"":[137]42
  46. 46 [139][195](T$)[177]20[167]T$[178]"":[137]42
  47. 47 [139]T$[178]"MENU"[167]T$[178]"X":[142]
  48. 48 [137]43
  49. 49 :
  50. 50 [153][199](166);:[153]"CMD";
  51. 51 [161]A$:[139]A$[178]""[167]51
  52. 52 [139][198](A$)[178]29[176][198](A$)[178]17[176][198](A$)[178]145[176][198](A$)[178]157[167]51
  53. 53 [139][198](A$)[178]147[176][198](A$)[178]148[176][198](A$)[178]19[176][198](A$)[178]20[167]51
  54. 54 [139]A$[178]"_"[167]59
  55. 55 [139]A$[178][199](13)[167]57
  56. 56 T$[178]T$[170]A$:[153]A$;:A$[178]"":[137]50
  57. 57 [139][195](T$)[177]25[167]T$[178][200](T$,25)
  58. 58 [153]" ":[142]
  59. 59 [139][195](T$)[179]1[167]51
  60. 60 [153]"CMD  CMDCMD";:[153][199](166);:[153]"CMD";:L[178][195](T$):[139]L[179]1[167]T$[178]"":[137]62
  61. 61 T$[178][200](T$,L[171]1)
  62. 62 [137]51
  63.